home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8410.arc / MYPROG.BAS < prev    next >
BASIC Source File  |  1986-09-14  |  640b  |  20 lines
  1. 5  REM   PROGRAM MYPROG.BAS
  2. 10 REM   ---  BASIC example program for BASLDR  ---
  3. 15 REM   This program may be freely distributed and copied.
  4. 20 REM
  5. 25 REM   This program demonstrates how a user program accesses subroutines
  6. 30 REM   loaded via the BASLDR program.
  7. 35 REM
  8. 40 REM   Written 4/15/84 by Ron Bauman
  9. 50 REM
  10. 100 OFFSET%=3
  11. 110 SUB1=OFFSET% : OFFSET%=OFFSET%+3
  12. 120 SUB2=OFFSET% : OFFSET%=OFFSET%+3
  13. 200 DEF SEG=&H0  : REM get the subroutine image segment
  14. 210 VLSEG = PEEK ( &H4FE ) + 256*PEEK ( &H4FF )
  15. 220 DEF SEG=VLSEG  : REM set up subroutine image segment definition
  16. 230 CALL SUB1
  17. 240 CALL SUB2
  18. 250 END
  19.  
  20.